home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Muzyka / Edytory sampli (probek dzwieku) / ZynAddSubFX_2.2.0 / Setup_ZynAddSubFX-2.2.0.exe / source code / UI / EnvelopeUI.fl < prev    next >
Text File  |  2005-03-14  |  26KB  |  852 lines
  1. # data file for the Fltk User Interface Designer (fluid)
  2. version 1.0106 
  3. header_name {.h} 
  4. code_name {.cc}
  5. decl {//Copyright (c) 2002-2005 Nasca Octavian Paul} {} 
  6.  
  7. decl {//License: GNU GPL version 2} {} 
  8.  
  9. decl {\#include "WidgetPDial.h"} {public
  10. } 
  11.  
  12. decl {\#include <stdio.h>} {public
  13. } 
  14.  
  15. decl {\#include <stdlib.h>} {public
  16. } 
  17.  
  18. decl {\#include "../globals.h"} {public
  19. } 
  20.  
  21. decl {\#include <FL/Fl_Group.H>} {public
  22. } 
  23.  
  24. decl {\#include "../Params/EnvelopeParams.h"} {public
  25. } 
  26.  
  27. decl {\#include <FL/Fl_Box.H>} {public
  28. } 
  29.  
  30. decl {\#include <FL/fl_draw.H>} {public
  31. } 
  32.  
  33. decl {\#include <FL/fl_ask.H>} {public
  34. } 
  35.  
  36. decl {\#include "PresetsUI.h"} {public
  37. } 
  38.  
  39. class EnvelopeFreeEdit {: {public Fl_Box}
  40. } {
  41.   Function {EnvelopeFreeEdit(int x,int y, int w, int h, const char *label=0):Fl_Box(x,y,w,h,label)} {} {
  42.     code {env=NULL;
  43. pair=NULL;} {}
  44.   }
  45.   Function {init(EnvelopeParams *env_)} {} {
  46.     code {env=env_;
  47. oldx=-1;
  48. currentpoint=-1;
  49. cpx=0;
  50. lastpoint=-1;} {}
  51.   }
  52.   Function {setpair(Fl_Box *pair_)} {} {
  53.     code {pair=pair_;} {}
  54.   }
  55.   Function {getpointx(int n)} {return_type int
  56.   } {
  57.     code {int lx=w()-10;
  58. int npoints=env->Penvpoints;
  59.  
  60. float  sum=0;
  61. for (int i=1;i<npoints;i++) sum+=env->getdt(i)+1;
  62.  
  63. float sumbefore=0;//the sum of all points before the computed point
  64. for (int i=1;i<=n;i++) sumbefore+=env->getdt(i)+1;
  65.  
  66. return((int) (sumbefore/(REALTYPE) sum*lx));} {}
  67.   }
  68.   Function {getpointy(int n)} {return_type int
  69.   } {
  70.     code {int ly=h()-10;
  71.  
  72. return((int) ((1.0-env->Penvval[n]/127.0)*ly));} {}
  73.   }
  74.   Function {getnearest(int x,int y)} {return_type int
  75.   } {
  76.     code {x-=5;y-=5;
  77.  
  78. int nearestpoint=0;
  79. int nearestval=1000000;//a big value
  80. for (int i=0;i<env->Penvpoints;i++){
  81.    int distance=abs(x-getpointx(i))+abs(y-getpointy(i));
  82.    if (distance<nearestval) {
  83.      nearestpoint=i;
  84.      nearestval=distance;  
  85.    };
  86. };
  87. return(nearestpoint);} {}
  88.   }
  89.   Function {draw()} {private
  90.   } {
  91.     code {int ox=x(),oy=y(),lx=w(),ly=h();
  92. if (env->Pfreemode==0) env->converttofree();
  93. int npoints=env->Penvpoints;
  94.  
  95. if (active_r()) fl_color(FL_BLACK);
  96.     else fl_color(90,90,90);
  97. if (!active_r()) currentpoint=-1;
  98.  
  99. fl_rectf(ox,oy,lx,ly);
  100.  
  101. ox+=5;oy+=5;lx-=10;ly-=10;
  102.  
  103. //draw the lines
  104. fl_color(FL_GRAY);
  105.  
  106. fl_line_style(FL_SOLID);
  107. fl_line(ox+2,oy+ly/2,ox+lx-2,oy+ly/2);
  108.  
  109. //draws the evelope points and lines
  110. Fl_Color alb=FL_WHITE;
  111. if (!active_r()) alb=fl_rgb_color(180,180,180);
  112. fl_color(alb);
  113. int oldxx=0,xx=0,oldyy=0,yy=getpointy(0);
  114. fl_rectf(ox-3,oy+yy-3,6,6);
  115. for (int i=1;i<npoints;i++){
  116.     oldxx=xx;oldyy=yy;
  117.     xx=getpointx(i);yy=getpointy(i);
  118.     if (i==currentpoint) fl_color(FL_RED);
  119.         else fl_color(alb);
  120.     fl_line(ox+oldxx,oy+oldyy,ox+xx,oy+yy);
  121.     fl_rectf(ox+xx-3,oy+yy-3,6,6);
  122. };
  123.  
  124. //draw the last moved point point (if exists)
  125. if (lastpoint>=0){
  126.     fl_color(FL_CYAN);
  127.     fl_rectf(ox+getpointx(lastpoint)-5,oy+getpointy(lastpoint)-5,10,10);
  128. };
  129.  
  130. //draw the sustain position
  131. if (env->Penvsustain>0){
  132.     fl_color(FL_YELLOW);
  133.     xx=getpointx(env->Penvsustain);
  134.     fl_line(ox+xx,oy+0,ox+xx,oy+ly);
  135. };
  136.  
  137. //Show the envelope duration and the current line duration
  138. fl_font(FL_HELVETICA|FL_BOLD,10);
  139. float time=0.0;
  140. if (currentpoint<=0){
  141.    fl_color(alb);
  142.    for (int i=1;i<npoints;i++) time+=env->getdt(i);
  143. } else {
  144.    fl_color(255,0,0);
  145.    time=env->getdt(currentpoint);
  146. };
  147. char tmpstr[20];
  148. if (time<1000.0) snprintf((char *)&tmpstr,20,"%.1fms",time);
  149.      else snprintf((char *)&tmpstr,20,"%.2fs",time/1000.0);
  150. fl_draw(tmpstr,ox+lx-20,oy+ly-10,20,10,FL_ALIGN_RIGHT,NULL,0);} {}
  151.   }
  152.   Function {handle(int event)} {return_type int
  153.   } {
  154.     code {int x_=Fl::event_x()-x();
  155. int y_=Fl::event_y()-y();
  156.  
  157. if (event==FL_PUSH) {
  158.   currentpoint=getnearest(x_,y_);
  159.   cpx=x_;
  160.   cpdt=env->Penvdt[currentpoint];
  161.   lastpoint=currentpoint;
  162.   redraw();
  163.   if (pair!=NULL) pair->redraw();
  164. };
  165.  
  166. if (event==FL_RELEASE){
  167.   currentpoint=-1;
  168.   redraw();
  169.   if (pair!=NULL) pair->redraw();
  170. };
  171.  
  172. if ((event==FL_DRAG)&&(currentpoint>=0)){
  173.   int ny=127-(int) (y_*127.0/h());
  174.   if (ny<0) ny=0;if (ny>127) ny=127;
  175.   env->Penvval[currentpoint]=ny;
  176.  
  177.   int dx=(int)((x_-cpx)*0.1);
  178.   int newdt=cpdt+dx;
  179.   if (newdt<0) newdt=0;if (newdt>127) newdt=127;
  180.   if (currentpoint!=0) env->Penvdt[currentpoint]=newdt;
  181.      else env->Penvdt[currentpoint]=0;
  182.  
  183.   redraw();
  184.   if (pair!=NULL) pair->redraw();
  185. };
  186.  
  187.  
  188. return(1);} {}
  189.   }
  190.   decl {Fl_Box *pair;} {}
  191.   decl {EnvelopeParams *env;} {}
  192.   decl {int oldx,oldy;} {}
  193.   decl {int currentpoint,cpx,cpdt;} {}
  194.   decl {int lastpoint;} {public
  195.   }
  196. } 
  197.  
  198. class EnvelopeUI {: {public Fl_Group,PresetsUI_}
  199. } {
  200.   Function {EnvelopeUI(int x,int y, int w, int h, const char *label=0):Fl_Group(x,y,w,h,label)} {} {
  201.     code {env=NULL;
  202. freemodeeditwindow=NULL;
  203. envADSR=NULL;
  204. envASR=NULL;
  205. envADSRfilter=NULL;
  206. envASRbw=NULL;
  207. envfree=NULL;} {}
  208.   }
  209.   Function {~EnvelopeUI()} {} {
  210.     code {envwindow->hide();
  211. hide();
  212. freemodeeditwindow->hide();
  213. delete (freemodeeditwindow);} {}
  214.   }
  215.   Function {make_freemode_edit_window()} {} {
  216.     Fl_Window freemodeeditwindow {
  217.       label Envelope
  218.       xywh {60 308 575 180} type Double hide
  219.     } {
  220.       Fl_Box freeedit {
  221.         label Envelope
  222.         xywh {5 5 565 145} box FLAT_BOX color 0
  223.         code0 {o->init(env);}
  224.         class EnvelopeFreeEdit
  225.       }
  226.       Fl_Button addpoint {
  227.         label {Add point}
  228.         callback {int curpoint=freeedit->lastpoint;
  229. if (curpoint<0) return;
  230. //if (curpoint>=env->Penvpoints-1) return;
  231. if (env->Penvpoints>=MAX_ENVELOPE_POINTS) return;
  232.  
  233. for (int i=env->Penvpoints;i>=curpoint+1;i--){
  234.    env->Penvdt[i]=env->Penvdt[i-1];
  235.    env->Penvval[i]=env->Penvval[i-1];
  236. };
  237.  
  238. if (curpoint==0) {
  239.   env->Penvdt[1]=64;
  240. };
  241.  
  242. env->Penvpoints++;
  243. if (curpoint<=env->Penvsustain) env->Penvsustain++;
  244.  
  245. freeedit->lastpoint+=1;
  246. freeedit->redraw();
  247. envfree->redraw();
  248.  
  249. sustaincounter->value(env->Penvsustain);
  250. sustaincounter->maximum(env->Penvpoints-2);}
  251.         xywh {115 155 80 20} box THIN_UP_BOX
  252.         code0 {if (env->Pfreemode==0) o->hide();}
  253.       }
  254.       Fl_Button deletepoint {
  255.         label {Delete point}
  256.         callback {int curpoint=freeedit->lastpoint;
  257. if (curpoint<1) return;
  258. if (curpoint>=env->Penvpoints-1) return;
  259. if (env->Penvpoints<=3) return;
  260.  
  261. for (int i=curpoint+1;i<env->Penvpoints;i++){
  262.    env->Penvdt[i-1]=env->Penvdt[i];
  263.    env->Penvval[i-1]=env->Penvval[i];
  264. };
  265.  
  266. env->Penvpoints--;
  267.  
  268. if (curpoint<=env->Penvsustain) env->Penvsustain--;
  269.  
  270.  
  271. freeedit->lastpoint-=1;
  272. freeedit->redraw();
  273. envfree->redraw();
  274.  
  275. sustaincounter->value(env->Penvsustain);
  276. sustaincounter->maximum(env->Penvpoints-2);}
  277.         xywh {200 155 80 20} box THIN_UP_BOX
  278.         code0 {if (env->Pfreemode==0) o->hide();}
  279.       }
  280.       Fl_Light_Button freemodebutton {
  281.         label FreeMode
  282.         callback {reinit();
  283.  
  284. freeedit->lastpoint=-1;
  285. freeedit->redraw();}
  286.         tooltip {Enable or disable the freemode} xywh {10 155 95 25} box PLASTIC_UP_BOX
  287.       }
  288.       Fl_Check_Button forcedreleasecheck {
  289.         label frcR
  290.         callback {env->Pforcedrelease=(int)o->value();}
  291.         tooltip {Forced Relase} xywh {410 165 40 15} down_box DOWN_BOX labelsize 11
  292.         code0 {o->value(env->Pforcedrelease);}
  293.         code1 {if (env->Pfreemode==0) o->hide();}
  294.       }
  295.       Fl_Dial envstretchdial {
  296.         label {Str.}
  297.         callback {env->Penvstretch=(int)o->value();}
  298.         tooltip {Envelope stretch (on lower notes make the envelope longer)} xywh {380 155 25 25} box ROUND_UP_BOX labelsize 11 align 4 maximum 127 step 1
  299.         code0 {o->value(env->Penvstretch);}
  300.         code1 {if (env->Pfreemode==0) o->hide();}
  301.         class WidgetPDial
  302.       }
  303.       Fl_Button {} {
  304.         label Close
  305.         callback {freemodeeditwindow->hide();}
  306.         xywh {510 155 60 25} box THIN_UP_BOX
  307.       }
  308.       Fl_Check_Button linearenvelopecheck {
  309.         label L
  310.         callback {env->Plinearenvelope=(int)o->value();}
  311.         tooltip {Linear Envelope} xywh {410 151 30 15} down_box DOWN_BOX labelsize 11
  312.         code0 {o->value(env->Plinearenvelope);}
  313.         code1 {if ((env->Pfreemode==0)||(env->Envmode>2)) o->hide();}
  314.       }
  315.       Fl_Counter sustaincounter {
  316.         label Sust
  317.         callback {env->Penvsustain=(int) o->value();
  318. freeedit->redraw();
  319. envfree->redraw();}
  320.         tooltip {Sustain (0 is disabled)} xywh {315 155 40 15} type Simple labelsize 12 align 4 minimum 0 maximum 127 step 1
  321.         code0 {o->value(env->Penvsustain);}
  322.         code1 {if (env->Pfreemode==0) o->hide();}
  323.         code2 {o->maximum(env->Penvpoints-2);}
  324.       }
  325.       Fl_Button {} {
  326.         label C
  327.         callback {presetsui->copy(env);}
  328.         xywh {465 160 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  329.       }
  330.       Fl_Button {} {
  331.         label P
  332.         callback {presetsui->paste(env,this);}
  333.         xywh {482 160 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  334.       }
  335.     }
  336.   }
  337.   Function {make_ADSR_window()} {} {
  338.     Fl_Window envADSR {
  339.       xywh {108 336 205 70} type Double color 50 labelfont 1 hide
  340.       class Fl_Group
  341.     } {
  342.       Fl_Group {} {
  343.         label {Amplitude Envelope}
  344.         xywh {0 0 205 70} box PLASTIC_UP_BOX color 223 labeltype ENGRAVED_LABEL labelsize 11 align 17
  345.       } {
  346.         Fl_Dial e1adt {
  347.           label {A.dt}
  348.           callback {env->PA_dt=(int)o->value();
  349. freeedit->redraw();}
  350.           tooltip {Attack time} xywh {5 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  351.           code0 {o->value(env->PA_dt);}
  352.           class WidgetPDial
  353.         }
  354.         Fl_Dial e1ddt {
  355.           label {D.dt}
  356.           callback {env->PD_dt=(int)o->value();
  357. freeedit->redraw();}
  358.           tooltip {Decay time} xywh {40 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  359.           code0 {o->value(env->PD_dt);}
  360.           class WidgetPDial
  361.         }
  362.         Fl_Dial e1rdt {
  363.           label {R.dt}
  364.           callback {env->PR_dt=(int)o->value();
  365. freeedit->redraw();}
  366.           tooltip {Release time} xywh {110 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  367.           code0 {o->value(env->PR_dt);}
  368.           class WidgetPDial
  369.         }
  370.         Fl_Dial e1sval {
  371.           label {S.val}
  372.           callback {env->PS_val=(int)o->value();
  373. freeedit->redraw();}
  374.           tooltip {Sustain value} xywh {75 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  375.           code0 {o->value(env->PS_val);}
  376.           class WidgetPDial
  377.         }
  378.         Fl_Check_Button e1forcedrelease {
  379.           label frcR
  380.           callback {env->Pforcedrelease=(int)o->value();}
  381.           tooltip {Forced Relase} xywh {180 35 20 15} down_box DOWN_BOX labelsize 11 align 6
  382.           code0 {o->value(env->Pforcedrelease);}
  383.         }
  384.         Fl_Dial e1envstretch {
  385.           label Stretch
  386.           callback {env->Penvstretch=(int)o->value();}
  387.           tooltip {Envelope stretch (on lower notes makes the envelope longer)} xywh {145 25 25 25} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  388.           code0 {o->value(env->Penvstretch);}
  389.           class WidgetPDial
  390.         }
  391.         Fl_Button {} {
  392.           label E
  393.           callback {freemodeeditwindow->show();}
  394.           tooltip {Envelope window} xywh {185 5 15 15} box PLASTIC_UP_BOX labelfont 1 labelsize 10
  395.         }
  396.         Fl_Check_Button e1linearenvelope {
  397.           label L
  398.           callback {env->Plinearenvelope=(int)o->value();}
  399.           tooltip {The evelope is linear} xywh {180 20 15 15} down_box DOWN_BOX labelsize 11 align 4
  400.           code0 {o->value(env->Plinearenvelope);}
  401.         }
  402.         Fl_Button {} {
  403.           label C
  404.           callback {presetsui->copy(env);}
  405.           xywh {150 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  406.         }
  407.         Fl_Button {} {
  408.           label P
  409.           callback {presetsui->paste(env,this);}
  410.           xywh {167 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  411.         }
  412.       }
  413.     }
  414.   }
  415.   Function {make_ASR_window()} {} {
  416.     Fl_Window envASR {
  417.       xywh {71 320 210 70} type Double hide
  418.       class Fl_Group
  419.     } {
  420.       Fl_Group {} {
  421.         label {Frequency Envelope}
  422.         xywh {0 0 210 70} box PLASTIC_UP_BOX color 223 labeltype ENGRAVED_LABEL labelsize 11 align 17
  423.       } {
  424.         Fl_Dial e2aval {
  425.           label {A.val}
  426.           callback {env->PA_val=(int)o->value();
  427. freeedit->redraw();}
  428.           tooltip {Starting value} xywh {5 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  429.           code0 {o->value(env->PA_val);}
  430.           class WidgetPDial
  431.         }
  432.         Fl_Dial e2adt {
  433.           label {A.dt}
  434.           callback {env->PA_dt=(int)o->value();
  435. freeedit->redraw();}
  436.           tooltip {Attack time} xywh {40 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  437.           code0 {o->value(env->PA_dt);}
  438.           class WidgetPDial
  439.         }
  440.         Fl_Dial e2rval {
  441.           label {R.val}
  442.           callback {env->PR_val=(int)o->value();
  443. freeedit->redraw();}
  444.           tooltip {Release value} xywh {110 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  445.           code0 {o->value(env->PR_val);}
  446.           class WidgetPDial
  447.         }
  448.         Fl_Dial e2rdt {
  449.           label {R.dt}
  450.           callback {env->PR_dt=(int)o->value();
  451. freeedit->redraw();}
  452.           tooltip {Release time} xywh {75 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  453.           code0 {o->value(env->PR_dt);}
  454.           class WidgetPDial
  455.         }
  456.         Fl_Dial e2envstretch {
  457.           label Stretch
  458.           callback {env->Penvstretch=(int)o->value();}
  459.           tooltip {Envelope stretch (on lower notes makes the envelope longer)} xywh {145 25 25 25} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  460.           code0 {o->value(env->Penvstretch);}
  461.           class WidgetPDial
  462.         }
  463.         Fl_Check_Button e2forcedrelease {
  464.           label frcR
  465.           callback {env->Pforcedrelease=(int)o->value();}
  466.           tooltip {Forced release} xywh {180 25 15 25} down_box DOWN_BOX labelsize 11 align 6
  467.           code0 {o->value(env->Pforcedrelease);}
  468.         }
  469.         Fl_Button {} {
  470.           label C
  471.           callback {presetsui->copy(env);}
  472.           xywh {155 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  473.         }
  474.         Fl_Button {} {
  475.           label P
  476.           callback {presetsui->paste(env,this);}
  477.           xywh {172 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  478.         }
  479.       }
  480.       Fl_Button {} {
  481.         label E
  482.         callback {freemodeeditwindow->show();}
  483.         tooltip {Envelope window} xywh {190 5 15 15} box PLASTIC_UP_BOX labelfont 1 labelsize 10
  484.       }
  485.     }
  486.   }
  487.   Function {make_ADSRfilter_window()} {} {
  488.     Fl_Window envADSRfilter {
  489.       xywh {87 143 275 70} type Double color 50 labelfont 1 hide
  490.       class Fl_Group
  491.     } {
  492.       Fl_Group {} {
  493.         label {Filter Envelope}
  494.         xywh {0 0 275 70} box PLASTIC_UP_BOX color 223 labeltype ENGRAVED_LABEL labelsize 11 align 17
  495.       } {
  496.         Fl_Dial e3aval {
  497.           label {A.val}
  498.           callback {env->PA_val=(int)o->value();
  499. freeedit->redraw();}
  500.           tooltip {Starting value} xywh {5 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  501.           code0 {o->value(env->PA_val);}
  502.           class WidgetPDial
  503.         }
  504.         Fl_Dial e3adt {
  505.           label {A.dt}
  506.           callback {env->PA_dt=(int)o->value();
  507. freeedit->redraw();}
  508.           tooltip {Attack time} xywh {40 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  509.           code0 {o->value(env->PA_dt);}
  510.           class WidgetPDial
  511.         }
  512.         Fl_Dial e3dval {
  513.           label {D.val}
  514.           callback {env->PD_val=(int)o->value();
  515. freeedit->redraw();}
  516.           tooltip {decay value} xywh {75 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  517.           code0 {o->value(env->PD_val);}
  518.           class WidgetPDial
  519.         }
  520.         Fl_Dial e3ddt {
  521.           label {D.dt}
  522.           callback {env->PD_dt=(int)o->value();
  523. freeedit->redraw();}
  524.           tooltip {decay time} xywh {110 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  525.           code0 {o->value(env->PD_dt);}
  526.           class WidgetPDial
  527.         }
  528.         Fl_Dial e3rdt {
  529.           label {R.dt}
  530.           callback {env->PR_dt=(int)o->value();
  531. freeedit->redraw();}
  532.           tooltip {Release time} xywh {145 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  533.           code0 {o->value(env->PR_dt);}
  534.           class WidgetPDial
  535.         }
  536.         Fl_Dial e3rval {
  537.           label {R.val}
  538.           callback {env->PR_val=(int)o->value();
  539. freeedit->redraw();}
  540.           tooltip {Release value} xywh {180 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  541.           code0 {o->value(env->PR_val);}
  542.           class WidgetPDial
  543.         }
  544.         Fl_Dial e3envstretch {
  545.           label Stretch
  546.           callback {env->Penvstretch=(int)o->value();}
  547.           tooltip {Envelope stretch (on lower notes makes the envelope longer)} xywh {215 25 25 25} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  548.           code0 {o->value(env->Penvstretch);}
  549.           class WidgetPDial
  550.         }
  551.         Fl_Check_Button e3forcedrelease {
  552.           label frcR
  553.           callback {env->Pforcedrelease=(int)o->value();}
  554.           tooltip {Forced Relase} xywh {250 30 15 20} down_box DOWN_BOX labelsize 11 align 6
  555.           code0 {o->value(env->Pforcedrelease);}
  556.         }
  557.         Fl_Button {} {
  558.           label E
  559.           callback {freemodeeditwindow->show();}
  560.           xywh {255 5 15 15} box PLASTIC_UP_BOX labelfont 1 labelsize 10
  561.         }
  562.         Fl_Button {} {
  563.           label C
  564.           callback {presetsui->copy(env);}
  565.           xywh {220 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  566.         }
  567.         Fl_Button {} {
  568.           label P
  569.           callback {presetsui->paste(env,this);}
  570.           xywh {237 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  571.         }
  572.       }
  573.     }
  574.   }
  575.   Function {make_ASRbw_window()} {} {
  576.     Fl_Window envASRbw {
  577.       xywh {224 539 210 70} type Double hide
  578.       class Fl_Group
  579.     } {
  580.       Fl_Group {} {
  581.         label {BandWidth Envelope}
  582.         xywh {0 0 210 70} box PLASTIC_UP_BOX color 223 labeltype ENGRAVED_LABEL labelsize 11 align 17
  583.       } {
  584.         Fl_Dial e4aval {
  585.           label {A.val}
  586.           callback {env->PA_val=(int)o->value();
  587. freeedit->redraw();}
  588.           tooltip {Starting value} xywh {5 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  589.           code0 {o->value(env->PA_val);}
  590.           class WidgetPDial
  591.         }
  592.         Fl_Dial e4adt {
  593.           label {A.dt}
  594.           callback {env->PA_dt=(int)o->value();
  595. freeedit->redraw();}
  596.           tooltip {Attack time} xywh {40 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  597.           code0 {o->value(env->PA_dt);}
  598.           class WidgetPDial
  599.         }
  600.         Fl_Dial e4rval {
  601.           label {R.val}
  602.           callback {env->PR_val=(int)o->value();
  603. freeedit->redraw();}
  604.           tooltip {Release value} xywh {110 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  605.           code0 {o->value(env->PR_val);}
  606.           class WidgetPDial
  607.         }
  608.         Fl_Dial e4rdt {
  609.           label {R.dt}
  610.           callback {env->PR_dt=(int)o->value();
  611. freeedit->redraw();}
  612.           tooltip {Release time} xywh {75 20 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  613.           code0 {o->value(env->PR_dt);}
  614.           class WidgetPDial
  615.         }
  616.         Fl_Dial e4envstretch {
  617.           label Stretch
  618.           callback {env->Penvstretch=(int)o->value();}
  619.           tooltip {Envelope stretch (on lower notes makes the envelope longer)} xywh {145 25 25 25} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  620.           code0 {o->value(env->Penvstretch);}
  621.           class WidgetPDial
  622.         }
  623.         Fl_Check_Button e4forcedrelease {
  624.           label frcR
  625.           callback {env->Pforcedrelease=(int)o->value();}
  626.           tooltip {Forced release} xywh {180 25 15 25} down_box DOWN_BOX labelsize 11 align 6
  627.           code0 {o->value(env->Pforcedrelease);}
  628.         }
  629.         Fl_Button {} {
  630.           label C
  631.           callback {presetsui->copy(env);}
  632.           xywh {155 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  633.         }
  634.         Fl_Button {} {
  635.           label P
  636.           callback {presetsui->paste(env,this);}
  637.           xywh {172 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  638.         }
  639.       }
  640.       Fl_Button {} {
  641.         label E
  642.         callback {freemodeeditwindow->show();}
  643.         xywh {190 5 15 15} box PLASTIC_UP_BOX labelfont 1 labelsize 10
  644.       }
  645.     }
  646.   }
  647.   Function {make_free_window()} {} {
  648.     Fl_Window envfree {
  649.       xywh {373 413 205 70} type Double color 50 labelfont 1 hide resizable
  650.       class Fl_Group
  651.     } {
  652.       Fl_Group envfreegroup {
  653.         label {Amplitude Envelope}
  654.         xywh {0 0 205 70} box PLASTIC_UP_BOX color 223 labeltype ENGRAVED_LABEL labelsize 11 align 17 resizable
  655.       } {
  656.         Fl_Box freeeditsmall {
  657.           label Envelope
  658.           callback {envfree->redraw();}
  659.           xywh {5 20 195 45} box FLAT_BOX color 0 resizable
  660.           code0 {o->init(env);}
  661.           class EnvelopeFreeEdit
  662.         }
  663.         Fl_Button {} {
  664.           label E
  665.           callback {freemodeeditwindow->show();}
  666.           xywh {185 5 15 15} box PLASTIC_UP_BOX labelfont 1 labelsize 10
  667.         }
  668.         Fl_Button {} {
  669.           label C
  670.           callback {presetsui->copy(env);}
  671.           xywh {150 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  672.         }
  673.         Fl_Button {} {
  674.           label P
  675.           callback {presetsui->paste(env,this);}
  676.           xywh {167 5 15 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 10 labelcolor 7
  677.         }
  678.       }
  679.     }
  680.   }
  681.   Function {init(EnvelopeParams *env_)} {} {
  682.     code {env=env_;
  683. make_ADSR_window();
  684. make_ASR_window();
  685. make_ADSRfilter_window();
  686. make_ASRbw_window();
  687. make_free_window();
  688.  
  689. make_freemode_edit_window();
  690.  
  691. envwindow=NULL;
  692. if (env->Envmode==3) envfreegroup->label("Frequency Envelope");
  693. if (env->Envmode==4) envfreegroup->label("Filter Envelope");
  694. if (env->Envmode==5) envfreegroup->label("Bandwidth Envelope");
  695.  
  696. freemodeeditwindow->label(this->label());
  697.  
  698.  
  699. freeeditsmall->setpair(freeedit);
  700. freeedit->setpair(freeeditsmall);
  701.  
  702.  
  703. refresh();} {}
  704.   }
  705.   Function {reinit()} {} {
  706.     code {if (env->Pfreemode!=0){
  707.   int answer=fl_ask("Disable the free mode of the Envelope?");
  708.   if (env->Pfreemode!=0) freemodebutton->value(1);
  709.           else freemodebutton->value(0);
  710.   if (answer==0) return;
  711. };
  712.  
  713. if (env->Pfreemode==0) env->Pfreemode=1;
  714.      else env->Pfreemode=0;
  715.  
  716. hide();
  717. int winx=freemodeeditwindow->x();
  718. int winy=freemodeeditwindow->y();
  719.  
  720. freemodeeditwindow->hide();
  721.  
  722. envwindow->hide();
  723. Fl_Group *par=envwindow->parent();
  724. par->hide();
  725.  
  726.  
  727. refresh();
  728. envwindow->show();
  729. par->redraw();
  730.  
  731. par->show();
  732. show();
  733. freemodeeditwindow->position(winx,winy);
  734. freemodeeditwindow->show();
  735.  
  736. if (env->Pfreemode!=0) {
  737.     freemodebutton->value(1);
  738.     addpoint->show();
  739.     deletepoint->show();
  740.     forcedreleasecheck->show();
  741. }else{
  742.     freemodebutton->value(0);
  743.     addpoint->hide();
  744.     deletepoint->hide();
  745.     forcedreleasecheck->hide();
  746. };} {selected
  747.     }
  748.   }
  749.   Function {refresh()} {} {
  750.     code {freemodebutton->value(env->Pfreemode);
  751.  
  752. sustaincounter->value(env->Penvsustain);
  753. if (env->Pfreemode==0) sustaincounter->hide();
  754.     else sustaincounter->show();
  755. sustaincounter->maximum(env->Penvpoints-2);
  756.  
  757. envstretchdial->value(env->Penvstretch);
  758. if (env->Pfreemode==0) envstretchdial->hide();
  759.     else envstretchdial->show();
  760.  
  761. linearenvelopecheck->value(env->Plinearenvelope);
  762. if ((env->Pfreemode==0)||(env->Envmode>2)) linearenvelopecheck->hide();
  763.     else linearenvelopecheck->show();
  764.  
  765. forcedreleasecheck->value(env->Pforcedrelease);
  766. if (env->Pfreemode==0) forcedreleasecheck->hide();
  767.  
  768. freeedit->redraw();
  769.  
  770.  
  771. if (env->Pfreemode==0){
  772.    switch(env->Envmode){
  773.          case(1):
  774.          case(2):
  775.         e1adt->value(env->PA_dt);
  776.         e1ddt->value(env->PD_dt);
  777.         e1sval->value(env->PS_val);
  778.         e1rdt->value(env->PR_dt);
  779.         e1envstretch->value(env->Penvstretch);
  780.         e1linearenvelope->value(env->Plinearenvelope);
  781.         e1forcedrelease->value(env->Pforcedrelease);
  782.          break;
  783.          case(3):
  784.         e2aval->value(env->PA_val);
  785.         e2adt->value(env->PA_dt);
  786.         e2rdt->value(env->PR_dt);
  787.         e2rval->value(env->PR_val);
  788.         e2envstretch->value(env->Penvstretch);
  789.         e2forcedrelease->value(env->Pforcedrelease);
  790.          break; 
  791.          case(4):
  792.         e3aval->value(env->PA_val);
  793.         e3adt->value(env->PA_dt);
  794.         e3dval->value(env->PD_val);
  795.         e3ddt->value(env->PD_dt);
  796.         e3rdt->value(env->PR_dt);
  797.         e3rval->value(env->PR_val);
  798.         e3envstretch->value(env->Penvstretch);
  799.         e3forcedrelease->value(env->Pforcedrelease);
  800.          break; 
  801.          case(5):
  802.         e4aval->value(env->PA_val);
  803.         e4adt->value(env->PA_dt);
  804.         e4rdt->value(env->PR_dt);
  805.         e4rval->value(env->PR_val);
  806.         e4envstretch->value(env->Penvstretch);
  807.         e4forcedrelease->value(env->Pforcedrelease);
  808.          break;
  809.          default:
  810.          break; 
  811.    };
  812. }else{
  813.        envfree->redraw();
  814. };
  815.  
  816.  
  817. envADSR->hide();
  818. envASR->hide();
  819. envADSRfilter->hide();
  820. envASRbw->hide();
  821. envfree->hide();
  822.  
  823. if (env->Pfreemode==0){
  824.    switch(env->Envmode){
  825.          case(1):
  826.          case(2):
  827.            envwindow=envADSR;
  828.          break;
  829.          case(3):
  830.            envwindow=envASR;
  831.          break; 
  832.          case(4):
  833.            envwindow=envADSRfilter;
  834.          break; 
  835.          case(5):
  836.           envwindow=envASRbw;
  837.          break;
  838.          default:
  839.          break; 
  840.    };
  841. }else{
  842.    envwindow=envfree;
  843. };
  844.  
  845. envwindow->resize(this->x(),this->y(),this->w(),this->h());
  846.  
  847. envwindow->show();} {}
  848.   }
  849.   decl {EnvelopeParams *env;} {}
  850.   decl {Fl_Group *envwindow;} {}
  851. } 
  852.